#!/usr/bin/perl -w
use DBI;
use mydb;
use myvideo;
use Config::IniFiles;
use threads;
use runtran;

#检查任务是否完成

	my_connect();

	while(1) {
	
		$sql = "update c_control set status = 'transcode-down' where status = 'transcode-begin' and total = over";
		$sth = $dbconn->prepare($sql) or die $dbconn->errstr;
		$sth->execute() or die "错误: " . $sth->errstr;
		sleep(1);
	}
